home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / text / show / mumo40.lha / MuchMore / Install_MuchMore < prev    next >
Text File  |  1994-01-01  |  7KB  |  174 lines
  1. ;  *** MuchMore installation scipt ***
  2.  
  3. (welcome "Welcome to the MuchMore installation!")
  4.  
  5. (
  6.         ;get destination dir for MuchMore-executable
  7.         (set mydest
  8.                 (askdir
  9.                         (prompt "Select the directory where you want to put the MuchMore executable.")
  10.                         (help   "The directory where you store the executable "
  11.                                 "should be easily accessible via WorkBench or CLI/Shell.\n\n"
  12.                                 @askfile-help
  13.                         )
  14.                         (default "C:")
  15.                         (disk)
  16.                 )
  17.         )
  18.  
  19.         (set @default-dest mydest)
  20.  
  21.         (set mmdest (tackon mydest "MuchMore"))
  22.  
  23.         (
  24.                 (if (= 1 (exists mmdest))
  25.                         (
  26.                                 (if (= 0
  27.  
  28.                                         (askbool
  29.                                                 (prompt "You have already installed MuchMore. Do you wish to overwrite it?\n\n")
  30.                                                 (help @askbool-help)
  31.                                                 (default 1)
  32.                                                 (choices "Continue" "Abort")
  33.                                         ))
  34.  
  35.                                 (abort "Okay, I didn't overwrite the executable.")
  36.                                 )
  37.  
  38.                         )
  39.  
  40.                 )
  41.         )
  42.  
  43.         (copyfiles
  44.                 (prompt ("Copying MuchMore executable to %s." mydest))
  45.                 (help @copyfiles-help)
  46.                 (source "MuchMore")
  47.                 (dest mydest)
  48.                 (infos)
  49.         )
  50.  
  51. )
  52.  
  53.  
  54. (
  55.         ;Copy Docs
  56.  
  57.         (if
  58.                 (set qval
  59.                         (askoptions
  60.                                 (prompt "Please choose which docs you want to have installed! "
  61.                                         "(Or choose none to have no docs installed!)")
  62.                                 (choices
  63.                                         "English Docs"
  64.                                         "German Docs"
  65.                                 )
  66.                                 (default 3)
  67.                                 (help
  68.                                         "Not installing the docs is unwise because you could have "
  69.                                         "questions while using MuchMore. Choosing the "
  70.                                         "documentation in your favourite language is sufficient.\n\n"
  71.                                         @askoptions-help
  72.                                 )
  73.                         )
  74.                 )
  75.  
  76.                 (
  77.                         (set docsdest
  78.                                 (askdir
  79.                                         (prompt "Select the directory where you want to put the docs.")
  80.                                         (help
  81.                                                 "You may store the docs where you usually store docs or "
  82.                                                 "in the directory where MuchMore resides in.\n\n"
  83.                                                 @askfile-help
  84.                                         )
  85.                                         (default mydest)
  86.                                 )
  87.                         )
  88.  
  89.                         (if (IN qval 0)
  90.                                 (copyfiles
  91.                                         (prompt ("Copying english docs to %s." docsdest))
  92.                                         (help @copyfiles-help)
  93.                                         (source "MuchMore.doc")
  94.                                         (dest docsdest)
  95.                                         (infos)
  96.                                 )
  97.                         )
  98.  
  99.                         (if (IN qval 1)
  100.                                 (copyfiles
  101.                                         (prompt ("Copying german docs to %s." docsdest))
  102.                                         (help @copyfiles-help)
  103.                                         (source "MuchMore.dok")
  104.                                         (dest docsdest)
  105.                                         (infos)
  106.                                 )
  107.                         )
  108.                 )
  109.         )
  110. )
  111.  
  112. (
  113.         ;install LOCALEs
  114.  
  115.         (set catdir "LOCALE:catalogs")
  116.  
  117.         (if (= 2 (exists "LOCALE:" (noreq)))
  118.                 (if
  119.                         (set qval
  120.                                 (askoptions
  121.                                         (prompt "Please choose which catalogs you want to have "
  122.                                                 "installed! "
  123.                                                 "(Or choose none to have no catalogs installed!)")
  124.                                         (choices
  125.                                                 "Deutsch (german)"
  126.                                                 "Italiano (italian)"
  127.                                                 "Svenska (swedish)"
  128.                                         )
  129.  
  130.                                         (default 7)
  131.                                         (help
  132.                                                 "It is sufficient to install the catalog(s) of the language(s) "
  133.                                                 "that you specified as 'preferred' in the locale-preferences "
  134.                                                 "editor. \n\n"
  135.                                                 @askoptions-help
  136.                                         )
  137.                                 )
  138.                         )
  139.                 (
  140.                         (if (IN qval 0)
  141.                                 (copyfiles
  142.                                         (prompt ("Copying german catalog to %s." (tackon catdir "deutsch")))
  143.                                         (help @copyfiles-help)
  144.                                         (source "Catalogs/deutsch/muchmore.catalog")
  145.                                         (dest (tackon catdir "deutsch"))
  146.                                         (infos)
  147.                                 )
  148.                         )
  149.                         (if (IN qval 1)
  150.                                 (copyfiles
  151.                                         (prompt ("Copying italian catalog to %s." (tackon catdir "italiano")))
  152.                                         (help @copyfiles-help)
  153.                                         (source "Catalogs/italiano/muchmore.catalog")
  154.                                         (dest (tackon catdir "italiano"))
  155.                                         (infos)
  156.                                 )
  157.                         )
  158.                         (if (IN qval 2)
  159.                                 (copyfiles
  160.                                         (prompt ("Copying swedish catalog to %s." (tackon catdir "svenska")))
  161.                                         (help @copyfiles-help)
  162.                                         (source "Catalogs/deutsch/muchmore.catalog")
  163.                                         (dest (tackon catdir "svenska"))
  164.                                         (infos)
  165.                                 )
  166.                         )
  167.  
  168.                 )
  169.  
  170.                 )
  171.         )
  172. )
  173.  
  174.